Private Sub Worksheet_Activate()
    Dim pt As PivotTable

    ' 현재 시트 내 모든 피벗 테이블 새로 고침
    For Each pt In Me.PivotTables
        pt.RefreshTable
    Next pt
End Sub